Voorbeeld van de instructie For...Next

Dit voorbeeld maakt gebruik van de instructie For...Next om een tekenreeks te maken die 10 maal de nummers 0 tot en met 9 bevat, waarbij elke tekenreeks door een enkele spatie van de andere wordt gescheiden. De buitenste lus gebruikt een lustellervariabele die elke keer door de lus wordt verkleind.

Dim Words, Chars, MyString
For Words = 10 To 1 Step -1     ' Set up 10 repetitions.
    For Chars = 0 To 9    ' Set up 10 repetitions.
        MyString = MyString & Chars    ' Append number to string.
    Next Chars    ' Increment counter
    MyString = MyString & " "    ' Append a space.
Next Words